home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / font.gs < prev    next >
Encoding:
Text File  |  1998-04-23  |  485 b   |  28 lines
  1. function font(arg)
  2. if (arg='')
  3.   arg = 1
  4. endif
  5.  
  6. fch = '!"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOP'
  7. fch = fch % 'QRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~'
  8.  
  9. 'set font 1'
  10. 'set strsiz 0.3'
  11. 'set string 1 c 3'
  12. 'draw string 5.5 8.0 Font Set 'arg
  13. x = 1.0
  14. y = 7.0
  15. i = 1
  16. 'set font 0'
  17. 'set strsiz 0.2'
  18. 'set string 1 c 1'
  19. while (i<95)
  20.   'draw string 'x' 'y' 'substr(fch,i,1)' `'%arg%substr(fch,i,1)
  21.   x = x + 1.5
  22.   if (x>10.5)
  23.     x = 1.0
  24.     y = y - 0.4
  25.   endif
  26.   i = i + 1
  27. endwhile
  28.